Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)

    Cancel = True

    On Error Resume Next

        Cells.FormatConditions.Delete

        Call Ǻμ(Target, xlThemeColorAccent1, 0.5)
        Call Ǻμ(Target.EntireColumn, xlThemeColorAccent1, 0.9)
        Call Ǻμ(Target.EntireRow, xlThemeColorAccent1, 0.9)

End Sub
